home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 6 / QRZ Ham Radio Callsign Database - Volume 6.iso / pc / files / mac / proj_b1.hqx / Project Mac - B1 / QSO / card_4332.txt < prev    next >
Encoding:
Text File  |  1987-12-15  |  5.6 KB  |  285 lines
  1. -- card: 4332 from stack: in
  2. -- bmap block id: 4654
  3. -- flags: 0000
  4. -- background id: 3728
  5. -- name: Radio Set Up
  6. ----- HyperTalk script -----
  7. on openCard
  8.   get loc of button "Time & Date"
  9.   click at it
  10. end openCard
  11.  
  12.  
  13.  
  14. -- part 7 (field)
  15. -- low flags: 00
  16. -- high flags: 0000
  17. -- rect: left=385 top=53 right=72 bottom=465
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Local Time
  26.  
  27.  
  28. -- part 8 (field)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=386 top=85 right=103 bottom=461
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Zulu Time
  40.  
  41.  
  42. -- part 9 (field)
  43. -- low flags: 00
  44. -- high flags: 0004
  45. -- rect: left=182 top=44 right=64 bottom=279
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 128
  50. -- text size: 12
  51. -- style flags: 256
  52. -- line height: 16
  53. -- part name: Call
  54.  
  55.  
  56. -- part 11 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=30 top=176 right=222 bottom=100
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 1012 / 1012
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Return
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect iris close
  71.   go to card id 2983 of stack "Radio"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 12 (field)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=374 top=111 right=130 bottom=484
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Local Date
  88.  
  89.  
  90. -- part 13 (field)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=377 top=134 right=151 bottom=480
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Zulu Date
  102.  
  103.  
  104. -- part 15 (button)
  105. -- low flags: 00
  106. -- high flags: 8003
  107. -- rect: left=42 top=142 right=164 bottom=93
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Find
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   doMenu "Find..."
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 16 (button)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=186 top=252 right=275 bottom=211
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 1013 / 1013
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Next
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   go to next card
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 17 (button)
  143. -- low flags: 00
  144. -- high flags: 8003
  145. -- rect: left=13 top=90 right=112 bottom=148
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Time & Date
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   global timezone
  157.   global zfactor
  158.   get the time
  159.   put it && timezone into card field "Local Time"
  160.   convert it to dateItems
  161.   add zfactor to item 4 of it
  162.   convert it to time
  163.   put it && "Z" into card field "Zulu Time"
  164.   put the date && "(" & timezone & ")" into card field "Local Date"
  165.   get the time
  166.   convert it to dateItems
  167.   add zfactor to item 4 of it
  168.   convert it to date
  169.   put it && "(UTC)" into card field "Zulu Date"
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 18 (button)
  175. -- low flags: 00
  176. -- high flags: 0000
  177. -- rect: left=153 top=252 right=275 bottom=179
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 1014 / 1014
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Prev
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   go to prev card
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 19 (button)
  194. -- low flags: 00
  195. -- high flags: 8003
  196. -- rect: left=34 top=116 right=138 bottom=111
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: New Entry
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   go to last card
  208.   doMenu "New Card"
  209.   get the loc of bkgnd button "Update"
  210.   click at it
  211.   tabKey
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 20 (button)
  217. -- low flags: 00
  218. -- high flags: 0000
  219. -- rect: left=46 top=228 right=255 bottom=76
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 20689 / 20689
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: 
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   go home
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 21 (field)
  236. -- low flags: 00
  237. -- high flags: 0000
  238. -- rect: left=319 top=186 right=315 bottom=493
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: 
  247.  
  248.  
  249. -- part 23 (field)
  250. -- low flags: 00
  251. -- high flags: 0004
  252. -- rect: left=182 top=103 right=123 bottom=279
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 128
  257. -- text size: 12
  258. -- style flags: 256
  259. -- line height: 16
  260. -- part name: Local Time
  261.  
  262.  
  263. -- part contents for card part 8
  264. ----- text -----
  265. 1:58 Z
  266.  
  267. -- part contents for card part 12
  268. ----- text -----
  269. 12/15/87 ()
  270.  
  271. -- part contents for card part 13
  272. ----- text -----
  273. 12/15/87 (UTC)
  274.  
  275. -- part contents for card part 21
  276. ----- text -----
  277. QSL cards, DX:
  278. Outgoing QSL
  279. 225 Main St
  280. Newington, CT 06111
  281. (include $1)
  282.  
  283. -- part contents for card part 7
  284. ----- text -----
  285. 1:58